Option Explicit

Private Sub CloseButton_Click()
    End
End Sub

Private Sub Form_Load()
    With SftButton2
        ' you could set these at design time using the property pages
        Set .Image1Pressed.Picture = PictureOn.Picture
        Set .Image1.Picture = PictureOff.Picture
    End With
End Sub

Private Sub ChangePicture_SftButton3()
    ' Change the pictures based on the button's Pressed status
    With SftButton3
        If .Pressed Then
            Set .Image1.Picture = PictureOn.Picture
            Set .Image2.Picture = PictureOff.Picture
        Else
            Set .Image1.Picture = PictureOff.Picture
            Set .Image2.Picture = PictureOn.Picture
        End If
    End With
End Sub

Private Sub SftButton3_Click()
    ChangePicture_SftButton3
End Sub

Private Sub SftButton3_DblClick()
    ChangePicture_SftButton3
End Sub