Markierung in einem Image einer UF

Private Sub ComboBox1_Change()
If Me.TextBox4 = "Herr" Then
Image1.Picture = LoadPicture("E:\Daten\mann.bmp")
End If
If Me.TextBox4 = "Frau" Then
Image1.Picture = LoadPicture("E:\Daten\frau.bmp")
End If
End Sub

Bilddateien in ein Image der Userform.
jetzt möchte ich per cmd-button eine Markierung in das Image setzen, die ich via Maus an eine stelle verschieben kann, die markiert werden soll.
Geht das überhaupt?
Gruß und Dank
Kocky