Public Class Form1
    Dim x As Single
 
 
    Private Sub cmdAnzeigen1_Click(ByVal sender As System.Object, ByVal e As _
      System.EventArgs) Handles cmdAnzeigen1.Click
 
        Dim y As Single
        x = x + 0.1
        y = y + 0.1
 
        lblAnzeige.Text = "x: " & x & vbCrLf & "y: " & y
 
End Class