Public Class Form1
    Dim VariablenListe(10) As String
    Dim myFont As New Font("Times New Roman", 8)
    Dim myPen As New Pen(Color.Yellow)
    Dim myBrush As New SolidBrush(Color.Yellow)
 
 
    Private Sub Form1_Load(ByVal sender As System.Object, ByVal e As _
      System.EventArgs) Handles MyBase.Load
        VariablenListe(0) = "1UpX"
        VariablenListe(1) = "1UpY"
        VariablenListe(2) = "1UpZ"
        VariablenListe(3) = "2UpX"
        VariablenListe(4) = "2UpY"
        VariablenListe(5) = "2UpZ"
        VariablenListe(6) = "3UpX"
        VariablenListe(7) = "3UpY"
        VariablenListe(8) = "3UpZ"
        VariablenListe(9) = "UpX"
        VariablenListe(10) = "UpY"
 
 
 
Dim VariablenName As String
 
        For Each VariablenName In VariablenListe
            cmbPunkte.Items.Add(VariablenName)
        Next
 
    End Sub
    Private Sub PictureBox1_MouseDown(ByVal sender As System.Object, ByVal e As _
      System.Windows.Forms.MouseEventArgs) Handles ptbBig.MouseDown
        txtX.Text = e.X
        txtY.Text = e.Y
        Dim VariablenName As String
        VariablenName = cmbPunkte.SelectedItem
 
        Dim g As Graphics = ptbBig.CreateGraphics()
        Dim Ellipse As New Rectangle(e.X, e.Y, 2, 2)
 
        g.DrawString(VariablenName, myFont, myBrush, e.X, e.Y)
        g.DrawEllipse(myPen, Ellipse)
 
    End Sub
 
    Private Sub btnLoad_Click(ByVal sender As System.Object, ByVal e As _
      System.EventArgs) Handles btnLoad.Click
        Try
            If Me.OpenFileDialog1.ShowDialog = Windows.Forms.DialogResult.OK _
              Then
                Me.ptbBig.Image = System.Drawing.Image.FromFile( _
                Me.OpenFileDialog1.FileName)
                Me.ptbBig.Refresh()
            End If
        Catch ex As Exception
            MsgBox("Fehler: " & ex.Message)
        End Try
 
    End Sub
 
 
 
End Class