用VB写按下按钮给abcd写1放开写0

您可以使用以下代码来实现按下按钮时给abcd写1，放开按钮时写0的功能：

Private Sub Button1_MouseDown(ByVal sender As Object, ByVal e As System.Windows.Forms.MouseEventArgs) Handles Button1.MouseDown
    a = 1
    b = 1
    c = 1
    d = 1
End Sub

Private Sub Button1_MouseUp(ByVal sender As Object, ByVal e As System.Windows.Forms.MouseEventArgs) Handles Button1.MouseUp
    a = 0
    b = 0
    c = 0
    d = 0
End Sub

在上面的代码中，我们假设存在四个变量a、b、c、d来表示abcd的状态，1表示按下，0表示放开。当按钮(Button1)被按下时，MouseDown事件会被触发，将abcd的状态都设置为1；当按钮被放开时，MouseUp事件会被触发，将abcd的状态都设置为0。请根据您的实际情况进行修改。