Exprese la capacidad de un disco duro dado en gigas a megabytes ,kilobytes y bytes.

Public Class Form14

    Private Sub Button1_Click(ByVal sender As System.Object, ByVal e As System.EventArgs) Handles Button1.Click

        'declarar todas las variables

        Dim megabytes#, kilobytes#, bytes#, gigas#

        'validar los objetos de entrada

        If Me.ogigas.Text = "" Then

            MsgBox("favor digite las capacidad en gigas")

            Me.ogigas.Focus()

        Else

            'asignar los valores a las variables de entrada

            gigas = Me.ogigas.Text

            'proceso

            megabytes = megabytes * 1000

            kilobytes = megabytes * 1000

            bytes = kilobytes * 1000

            'asiganar la respuesta de salida

            Me.Label4.Text = gigas

            Me.Label6.Text = gigas

            Me.Label8.Text = gigas

        End If

    End Sub

    Private Sub Button3_Click(ByVal sender As System.Object, ByVal e As System.EventArgs) Handles Button3.Click

        'Para salir se utiliza la funcion

        If (MsgBox("Esta seguro que desea salir?", MsgBoxStyle.YesNo, "Advertencia")) = MsgBoxResult.Yes Then

            MsgBox("Gracias")

            Close()

        End If

    End Sub

End Class