Private Sub Button1_1_1_Click(ByVal sender As System.Object, ByVal e As _
  System.EventArgs) Handles Button1_1_1.Click
        x1 = 100
        y1 = 100
 
    End Sub
 
Private Sub Panel1_Meter_Paint(ByVal sender As System.Object, ByVal e As _
  System.Windows.Forms.PaintEventArgs) Handles Panel1_Meter.Paint
 
    End Sub