VB6.0窗口BorderStyle属性选择了0 — None，如何令用户可以拖动窗口？
顺便问下，有哪位大神知道Image控件有被按下、弹起两个时间么？我想在鼠标在Image控件上按下鼠标后更换Picture，在Image控件上鼠标弹起后，Picture再次更换回来。

这都是最基础的技巧了，参照下述代码即可：
Private Sub Image1_MouseMove(Button As Integer, Shift As Integer, X As Single, Y As Single)
  Static ox As Integer, oy As Integer
  If Button = 1 Then
    Me.Left = Me.Left + X - ox
    Me.Top = Me.Top + Y - oy
  Else
    ox = X
    oy = Y
  End If
End Sub

二楼 xzlxzlxzl 的回答应该说基本正确，但我认为应该是窗体的MouseMove事件。
Private Sub Form_MouseMove(Button As Integer, Shift As Integer, X As Single, Y As Single)
  Static ox As Integer, oy As Integer
  If Button = 1 Then
    Me.Left = Me.Left + X - ox
    Me.Top = Me.Top + Y - oy
  Else
    ox = X
    oy = Y
  End If
End Sub

哦，题主问了两个问题，看成按住image了，没仔细审题。
第二问参照下述代码：
Private Sub Image1_MouseDown(Button As Integer, Shift As Integer, X As Single, Y As Single)
  Image1.Picture = LoadPicture("图片文件位置")  '可以换成用LoadResPicture函数加载资源文件内容
End Sub

Private Sub Image1_MouseUp(Button As Integer, Shift As Integer, X As Single, Y As Single)
  Image1.Picture = LoadPicture("")  '""里可以换成原图片文件路径，空字符串是取消inage控件里图片
End Sub

[此贴子已经被作者于2018-5-27 17:27编辑过]

哦，我也没有仔细看，还是你比较认真。