Private Sub Button1_Click_1(ByVal sender As System.Object, ByVal e As System.EventArgs) Handles Button1.Click
        Dim volume As Decimal
        Dim radius As Decimal
        radius = CDbl(TextBox1.Text)
        volume = (4 / 3) * 3.14 * (radius * radius * radius)
        Label1.Text = volume
    End Sub

    Dim MynewPos As New Point(50, 40)

    Private Sub Button1_Click(ByVal sender As System.Object, ByVal e As System.EventArgs) Handles Button1.Click
        Dim pnt As New Point(CType(TextBox2.Text, Integer), CType(TextBox3.Text, Integer))

Dim variable As Integer
Do Until variable = 2
MsgBox("loop")
variable = variable + 1
Loop

Do
msgbox("Loop")
Loop

Dim AppPath As String
AppPath = System.IO.Path.GetDirectoryName(Application.ExecutablePath)
Me.Icon = New Icon(AppPath & "\icons\programicon.ico")