Private Sub Button1_Click(ByVal sender As System.Object, ByVal e As _
    System.EventArgs) Handles Button1.Click
        If Eigenschaften Button(Lost Focus) = Eigenschaften Button1 Then 
           Button(Lost Focus).Visible = False And Button1.Visible = False
        End If
    End Sub

Schreibe von einem ab, dann ist das Plagiat - schreibe von zweien ab, dann ist das Forschung!