Private Sub Buttons_MouseUp(sender As Object, e As MouseEventArgs) Handles Button1.MouseUp, Button2.MouseUp, Button3.MouseUp Label1.Text = CStr(Button1.Capture) Label2.Text = CStr(Button2.Capture) Label3.Text = CStr(Button3.Capture) End Sub